home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / Euterpe.lha / Euterpe_Installation / Installation / Install < prev    next >
Encoding:
Text File  |  1997-07-29  |  2.4 KB  |  112 lines
  1. (complete 0)
  2.  
  3. (set default_lang 4)
  4. (set #introduction
  5. (cat "\n\nInstallation of Euterpe.\n"
  6. ))
  7.  
  8. (set #bravi
  9. (cat "Installation is not possible."
  10. ))
  11.  
  12. (set #quel-disque
  13. (cat "Where do you want to install Euterpe\n(A directory will be created) ?"
  14. ))
  15.  
  16. (set #quel-disque-aide
  17. (cat "Select the drawer or volume where the installation should be made."
  18. ))
  19. (set #oui-prompt
  20. (cat "Installation of OBJECT USER INTERFACE catalog files."
  21. ))
  22.  
  23. (set #startup-prompt
  24. (cat "Adding Assign Euterpe: in user-startup."
  25. ))
  26.  
  27. (if (= @language "français")
  28. (
  29. (set default_lang 16)
  30. (set #introduction
  31. (cat "\n\nInstallation d'Euterpe.\n"
  32. ))
  33.  
  34. (set #bravi
  35. (cat "L'installation a échoué."
  36. ))
  37.  
  38. (set #quel-disque
  39. (cat "Où voulez-vous installer Euterpe\n(Un répertoire sera créé) ?"
  40. ))
  41.  
  42. (set #quel-disque-aide
  43. (cat "Sélectionnez le disque ou répertoire où l'installation doit être effectuée."
  44. ))
  45.  
  46. (set #oui-prompt
  47. (cat "Installation des catalogues pour l'interface OUI."
  48. ))
  49.  
  50. (set #startup-prompt
  51. (cat "Ajout de l'assignation Euterpe: dans le fichier user-startup."
  52. ))
  53.  
  54.  
  55.  
  56. ))
  57.  
  58. ;---------------------------------------------------------------------
  59. (set installLoc (pathonly (pathonly @icon))
  60.      installEuterpe (tackon installLoc "Euterpe")
  61.      installCats (tackon installEuterpe "Catalogs")
  62.      installFonts (tackon installLoc "Fonts")
  63.      installOuiCat (tackon (tackon (tackon installLoc "OUI_Catalogs") @language) "oui.catalog")
  64.      targetOuiCat (tackon "LOCALE:Catalogs" @language)
  65.      targetFonts "FONTS:"
  66. )
  67.  
  68. (delopts "oknodelete" "force" "askuser")
  69. (user 2)
  70. (message #introduction)
  71. (user 0)
  72. (welcome)
  73. (set old_level @user-level)
  74.     (user 2)
  75.     (set target (tackon (askdir (prompt #quel-disque)
  76.                         (help #quel-disque-aide)
  77.                         (default "SYS:")
  78.                         (disk)
  79.                 ) "Euterpe")
  80.     )
  81.     (makedir target
  82.              (infos))
  83.  
  84.     (user old_level)
  85. (set @default-dest target)
  86. (complete 10)
  87.  
  88. (set targetCats (tackon target "Catalogs"))
  89.  
  90. (copyfiles (source installEuterpe)
  91.            (dest target)
  92.            (all)
  93. )
  94. (complete 70)
  95. (copyfiles (source installFonts)
  96.            (dest targetFonts)
  97.            (all)
  98. )
  99. (copylib (prompt #oui-prompt)
  100.          (source installOuiCat)
  101.          (dest targetOuiCat)
  102.          (confirm)
  103.          (optional nofail askuser)
  104.          (help @copylib-help)
  105. )
  106.  
  107. (startup "Euterpe" (prompt #startup-prompt)
  108.          (help @startup-help)
  109.          (command (cat "Assign Euterpe: " target))
  110. )
  111. (complete 100)
  112.